home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / Demos / Session 4 < prev    next >
Lisp/Scheme  |  1998-10-26  |  1KB  |  46 lines
  1. ; by Nigel Morgan
  2. ; to analyze the score double-click high-lighted keywords
  3.  
  4. (initdef)
  5. (defsym a '(b c a))
  6. (defsym b '(f e))
  7. (defsym c '(b a))
  8. (defsym d '(a g))
  9.  
  10. (def-symbol
  11.     instr1 (gen-trans a 4)
  12.     instr2 (gen-trans d 4)
  13.     instr3 (gen-trans c 4)
  14.     instr4 (gen-trans b 4)
  15. )
  16.  
  17. (def-length
  18.     default '1/16
  19. )
  20.  
  21. (def-channel
  22.     instr1 1
  23.     instr2 2
  24.     instr3 3
  25.     instr4 4
  26. )
  27.  
  28. (setq tonals 
  29.     (activate-tonality (whole-tone c 5) (chromatic c 6)))
  30. (setq tonals1 
  31.     (activate-tonality (chromatic c 6) (whole-tone c 5)))
  32.  
  33. (midiport :printer)
  34.  
  35. (def-tempo 120)
  36.  
  37. (compile-song-p "ccl;output:" 1/8 "Session 4"
  38. ;   BARS                |-------|-------|-------|-------|
  39.     changes   tonals   "            .   .  .      .    ."
  40.     changes2  tonals1  "    .   .    .   .  .  .     . ."
  41.     instr1   changes    "--     ----- --- ---    ----- --"
  42.     instr2   changes2   "  ---  ---   -- - --- --- --- --"
  43.     instr3   changes2   "    ---- ---   - - --   --- -- -"
  44.     instr4   changes    "      -----  - - - --  - - - - -" 
  45. )
  46.